home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor2
/
hamilton
< prev
next >
Wrap
Text File
|
1995-03-31
|
2KB
|
9 lines
HPHP48-E *δ░
4 3)@ hffffAD 3 3)` gffff D 2 3)p PD 3) ° pz 3) δ py 3) δ px 3) δ z 3) D y 3) D x 3) D pzdot 3) 0 pydot 3) 0 pxdot 3) 0 zdot 3) ydot 3) xdot 3) PPAR t*p P w) e 2█ä X'¢r aæ ä Y+1
H ,*█ä pxb¢ò H. ç-*-°q H. ç-*-°q H. █ç-*-° ä yb¢ò g« ä z á-*-°q +1
LieDer -àa#á4òæ N 6òæ NT6 ä xy6â÷ H.@█GöFçb m. àDe#H. g#~ï ä ydotîq m. àDe#H. g#~ï ä zdotîq m. àDe#H. g#~ï ä pxdotîq m. àDe#H. g#~ï ä pydotîq m. àDe#H. g#~ï ä pzdotîq b5 c#+1δ Lie4thOrder -àa#H.`à VFT&W¡ ûAe#H. g#îÑ» H.`à VFT&W¡ ûAe#H. ) g#îáà ½ûq ½û ä LieDer
r, T6 ä 3y6âb üÑ» g«Ñ» H.`à VFT&W¡ T6 ä 4y6âb g« c#+1P HamiltonStep -àa#T6 ä pzy6òì T6 ä pyy6òì T6 ä pxy6òì T6 ä zy6òì T6 ä yy6òì T6 ä xy6òì H. G^ H. █w H. G^ H. w H. (c)G^ H. w H.0 G^ H. w H.0 G^ H. w H.0 G^ H. w 96² à Uç Ö ÆF÷æ ææDù 6"3* üÑ1* üáy á4òæ U 6 ä H. éb b¢Rδ ûAe#H. ) g#í ä î1/* ─q, T6 ä 3y6òì H. éb £Rδ T6 ä 4y6òì t*à à ° δâ1 #H.à█ Ö ÆF÷æ6EW '3* üÑ1* üáy ûÑæ U ~aAe#m. P g#í ò #s k#φûA H. █ ä yH. ä pxH. ä pz+1àï b5 c#+1█! SetUpHamiltonian -àa#b¢ò ,*0 H. ç-*-° ä pyb¢ò g« ä pzb¢ò g«áb +1p T6 ä Hy6òì H. █De#H. █ g#~ïQ¡ (c)Ae#H.P GöF g#í ä HT6 ä yy6â÷
R T6 ä pydoty6òì H. █De#H. g#~ïQ¡ (c)Ae#H.P GöF g#í ä HT6 ä pxy6â÷
Be#H.@█GöF g#í ä HT6 ä pyy6â÷
Be#H.@ GöF g#í ä HT6 ä pzy6â÷
Be#H.@ GöF g#í Be#H. █ g#H.°à VFC ö$GV&Ge#H. g#í Be#H. g#H.°à VFC ö$GV&Ge#H. g#í Be#H. g#H.°à VFC ö$GV&Ge#H. (c) g#í Be#H. g#H.°à VFC ö$GV&Ge#H.0 g#í Be#H. g#H.°à VFC ö$GV&Ge#H.0 g#í Be#H. g#H.°à VFC ö$GV&Ge#H.0 g#í c#+1